﻿Module Module1

    Sub Main()

        Dim numSr As String
        Dim sum1 As Integer = 1
        Dim suma, num, cont As Integer
        Console.Title = "Serie Fibonacci"
        suma = 1
        Do
            Console.Write("Introduce un número para calcular la serie fibonacci hasta ese número: ")
            numSr = Console.ReadLine()
        Loop Until IsNumeric(numSr) AndAlso Integer.Parse(numSr) > 0
        num = CInt(numSr)
        'Console.Write(suma & " " & sum1 & " ")
        For i As Integer = 0 To num
            suma = (1.618034 ^ i - (1 - 1.618034) ^ i) / Math.Sqrt(5) 'calculo fibonacci con regla de oro'
            Console.Write(suma & " ")

        Next



        Console.ReadKey()

    End Sub

End Module
